home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / maxicras.arc / MASMENU.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-03-23  |  2.1 KB  |  30 lines
  1. 10  'Copyright (c) 1983,1984 by Exador, Inc.
  2. 15  'MASMENU Version A.8\SANYO
  3. 20  DEFDBL A:COMMON M$(),F$(),PDISK$,DDISK$,PDDISK$:CHAIN MERGE PDISK$+"INKEY.BAS",30
  4. 30  ON ERROR GOTO 1000:BANNER=1:CLOSE:GOSUB 24000:FL=-1
  5. 70  PRINT TAB(17)"1     -     Input Transactions":PRINT TAB(17)"2     -     Print the Check Register Statement(s)":PRINT TAB(17)"3     -     Print Checks":PRINT TAB(17)"4     -     Print Selected Account Statement(s)
  6. 110  PRINT TAB(17)"5     -     Checkbook Reconciliation":PRINT TAB(17)"6     -     Print the Account Distribution Statement":PRINT TAB(17)"7     -     File Maintenance":PRINT TAB(17)"8     -     Utility Programs
  7. 150  PRINT TAB(17)"9     -     End Operations":F$(4)="1":FMAX=9:GOSUB 31000:ON IN GOTO 410,420,430,440,450,460,26000,27000,490
  8. 410  PNM$="MCRAS.TE":GOTO 62000
  9. 420  PNM$="MCRAS.CR":GOTO 62000
  10. 430  PNM$="MCRAS.CP":GOTO 62000
  11. 440  PNM$="MCRAS.SOA":GOTO 62000
  12. 450  PNM$="MCRAS.CAR":GOTO 62000
  13. 460  PNM$="MCRAS.PAD":GOTO 62000
  14. 490  GOSUB 25100:LOCATE 23,1:SYSTEM:EC=ERR:IF((EC=53 OR EC=54 OR EC=71)AND CF=1)THEN RESUME NEXT ELSE RESUME
  15. 1000  EC=ERL:IF ((EC=53 OR EC=54 OR EC=71) AND CF=1) THEN RESUME NEXT ELSE RESUME
  16. 24000  CLS:PRINT TAB(13)"* * * MAXI Check Register Accounting System Menu * * *":PRINT STRING$(80,F$(11)):GOSUB 30000:RETURN
  17. 25100  CLS:LOCATE 10,23:PRINT"MAXI Check Register Accounting System":PRINT TAB(23)STRING$(4,F$(12));" ";STRING$(5,F$(12));" ";STRING$(8,F$(12));" ";STRING$(10,F$(12));" ";STRING$(6,F$(12)):RETURN
  18. 26000  GOSUB 24000:PRINT TAB(17)"1     -     Account File Maintenance":PRINT TAB(17)"2     -     Address File Maintenance":PRINT TAB(17)"3     -     'In Payment Of' File Maintenance":PRINT TAB(17)"4     -     Return to Menu
  19. 26050  FMAX=4:GOSUB 31000:ON IN GOTO 26410,26420,26430,30
  20. 26410  F$(4)="2":PNM$="MCRAS.IP":GOTO 62000
  21. 26420  F$(4)="2":PNM$="MCRAS.ADD":GOTO 62000
  22. 26430  F$(4)="3":PNM$="MCRAS.ADD":GOTO 62000
  23. 27000  GOSUB 24000:PRINT TAB(17)"1     -     Initialize Data Disk for New Year":PRINT TAB(17)"2     -     Transfer Data for Continuation of New Year":PRINT TAB(17)"3     -     New Data Disk - File Flag Reset
  24. 27035  PRINT TAB(17)"4     -     Transfer Account Data to VISICALC":PRINT TAB(17)"5     -     Transfer Account Data to SuperCalc":PRINT TAB(17)"6     -     Return to Menu":FMAX=6:GOSUB 31000:IF IN=4 THEN F$(4)="VC" ELSE IF IN=5 THEN F$(4)="SC
  25. 27055  ON IN GOTO 27410,27420,27430,27435,27435,30
  26. 27410  F$(4)="1":PNM$="MCRAS.IP":GOTO 62000
  27. 27420  F$(4)="1":PNM$="MCRAS.XFR":GOTO 62000
  28. 27430  F$(4)="2":PNM$="MCRAS.XFR":GOTO 62000
  29. 27435  PNM$="MCRASVC.BAS":GOTO 62000
  30.